home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / business / show30a.zip / PROMOTE1.SHW < prev    next >
Text File  |  1992-09-01  |  8KB  |  365 lines
  1. ;*********************************************************************;
  2. ; Sciptname..:  PROMOTE1.SHW                                          ;
  3. ; Date.......:  1st. Sep. 1992, by RMP DATA.                          ;
  4. ; Purpose....:  Promotion for DATASHOW v. 3.0A, as an example script. ;
  5. ;*********************************************************************;
  6.  
  7. ; Other files involved:
  8. ; sound1.shw                   ; Tight sound loop file
  9. ; scroll1.shw                  ; Tight scrool loop file
  10. ; promote1.gra, hugo1.gif      ; Graphic files
  11. ; entrance.snd, napoleon.snd   ; Music files
  12. ; show1.scr - show7.scr        ; Captured screen files
  13.  
  14. IF HIGRAPH DO JUMPMARK 10      ; check the graphics adapter
  15.  
  16. CLEARSCREEN
  17. WRITE "I'M SORRY, BUT THIS PRESENTATION ONLY WORK ON VGA SCREENS!"
  18. GOXY 1 2
  19. WAIT "PUSH ANY KEY..."
  20. QUIT
  21.  
  22. MARK 10
  23.  
  24. SET GRAPHICS EGA1              ; Make graphics at beginning of this script
  25.  
  26. SET ESCAPEKEY 27               ; Make sure script can be stopped any time
  27. SET TIMEOUT 10                 ; Set seconds to wait for keyboard (WAITKEY)
  28.  
  29. VARIABLE CREATE counttimes TYPE NUMBER 1   ; Variable to count number of runs
  30.  
  31. COLOR ATTRIBUTE 31             ; Set to blue background, white forground
  32. COLOR BACKGROUND 1             ; Set the background to blue
  33. COLOR FOREGROUND 15            ; Set the foreground to white
  34. CLEARSCREEN
  35.  
  36. SET DELAYFACTOR 5
  37.  
  38. SET SHADOW 79
  39.  
  40. GOXY 28 2
  41. WRITE "Welcome to a presentation of"
  42.  
  43. EFFECT TEXTTYPE 3 6
  44. GOXY 28 3
  45. WRITE "DataShow"
  46. EFFECT TEXTTYPE 0 1
  47.  
  48. GOXY 10 12
  49. DRAW LINE 60
  50.  
  51. GOXY 10 20
  52. DRAW LINE 60
  53.  
  54. GOXY 1 14
  55.  
  56. SPEAK "W-E-L-L-K-U-M-E"        ; Talk via system speaker
  57.  
  58. SPEAK "T-OO D-A-TH-A-S-H-U-W"
  59.  
  60. DEFINE
  61. ///////    //////   ///////   //////    ///////  //    //  ///////  //  //  //
  62. //    //  //    //    //     //    //  //        //    //  //   //  //  //  //
  63. //    //  ////////    //     ////////  ////////  ////////  //   //  //  //  //
  64. //    //  //    //    //     //    //        //  //    //  //   //   // // //
  65. ///////   //    //    //     //    //  ///////   //    //  ///////    //////
  66. ENDDEFINE
  67.  
  68. SET DELAYFACTOR 0              ; Set waiting period to zero
  69.  
  70. MOTION LEFT 0                  ; Move defined area across screen
  71.  
  72. MOTION RIGHT 79                ; Move defined area partly back on screen
  73.  
  74. EFFECT TEXTTYPE 1 6
  75. GOXY 30 20
  76. WRITE "V. 3.0A"
  77. EFFECT TEXTTYPE 0 1
  78.  
  79. SET SHADOW OFF
  80.  
  81. WAIT 3
  82.  
  83. SET GRAPHICS OFF
  84.  
  85. SET CURSOR OFF
  86.  
  87. SHOWSCREEN "show1.scr" TXT     ; Show screen saved with CAPTURE
  88.  
  89. MUSIC PROCESS "entrance.snd"
  90.  
  91. WAIT 1
  92.  
  93. COLOR BACKGROUND 3             ; Set the background to cyan
  94. CLEARSCREEN
  95.  
  96. GOXY 1 20
  97. WINDOW 79 4
  98. COLOR BACKGROUND 7
  99. CLEARSCREEN
  100.  
  101. GOXY 1 1
  102. WINDOW 79 24
  103.  
  104. COLOR ATTRIBUTE 63             ; Set to cyan background, white forground
  105.  
  106. GOXY 6 2
  107. DRAW BOX 70 14
  108.  
  109. SET CURSOR ON
  110.  
  111. SET DELAYFACTOR 5
  112.  
  113. GOXY 10 4
  114. WRITE "Together with the resident program CAPTURE, you can create pre-"
  115. GOXY 10 6
  116. WRITE "sentations fast and easy. You CAPTURE screens from programs and"
  117. GOXY 10 8
  118. WRITE "show them from DATASHOW like this screen to be shown here......"
  119.  
  120. WAIT 2
  121.  
  122. GETSCREEN                      ; Save the current screen to a buffer
  123. SET CURSOR OFF
  124. SHOWSCREEN "show2.scr" TXT     ; Show screen saved with CAPTURE
  125. WAIT 2
  126. SPEAK "C-A-P-T-U-R-E"
  127. WAIT 1
  128. SPEAK "AE"
  129. SPEAK "S-K-R-EE-EE-N"
  130. WAIT 2
  131. SET CURSOR ON
  132. PUTSCREEN                      ; Retrieve saved screen from the buffer
  133.  
  134. GOXY 10 10
  135. WRITE "It is a simple task  to create scripts  and have them  shown on"
  136. GOXY 10 12
  137. WRITE "the screen  with encredible  flexibility.  Scripts are ordinary"
  138. GOXY 10 14
  139. WRITE "ASCII files.  Here the easy method to make scripts is shown..."
  140.  
  141. SPEAK "P-U-S-H"
  142. WAIT 1
  143. SPEAK "A-N-I"
  144. WAIT 1
  145. SPEAK "K-E-I"
  146.  
  147. GOXY 10 20
  148. WAIT "Push any key"            ; Wait for any key to be pushed or TIMEOUT
  149.  
  150. SET CURSOR OFF
  151. COLOR ATTRIBUTE 0
  152.  
  153. SHOWSCREEN "show3.scr" TXT     ; Show screen saved with CAPTURE
  154. WAIT 4
  155.  
  156. SHOWSCREEN "show4.scr" TXT     ; Show screen saved with CAPTURE
  157. WAIT 4
  158.  
  159. SHOWSCREEN "show5.scr" TXT     ; Show screen saved with CAPTURE
  160. WAIT 4
  161.  
  162. EFFECT GLITTER
  163. WAIT 1
  164.  
  165. SET TEXTSOUND ON
  166.  
  167. COLOR BACKGROUND 4             ; Set the background to red
  168. CLEARSCREEN
  169. GOXY 10 4
  170. WRITE "You can also write your scripts to a printer!"
  171. WAIT 3
  172.  
  173. SHOWSCREEN "show6.scr" TXT     ; Show screen saved with CAPTURE
  174. WAIT 2
  175.  
  176. COLOR BACKGROUND 3             ; Set the background to cyan
  177. GOXY 13 5
  178. WRITE "PROMOTE1.SHW"
  179. WAIT 3
  180.  
  181. COLOR ATTRIBUTE 63
  182. SET TEXTSOUND OFF
  183. SET DELAYFACTOR 0
  184.  
  185. CLEARSCREEN
  186. GOXY 10 10
  187. DRAW BOX 32 2
  188. GOXY 11 11
  189. WRITE "You can create single sounds..."
  190.  
  191. VARIABLE CREATE controlloop TYPE NUMBER 1  ; Variable to control loops
  192.  
  193. MARK 1                         ; Create a mark that can be jumped to
  194.  
  195. VARIABLE CREATE soundloop TYPE NUMBER 1    ; Variable to control sound
  196.  
  197. DO "sound1.shw"                ; Call another (sub) program
  198.  
  199. VARIABLE RELEASE soundloop     ; Clean up after us, for next time round
  200.  
  201. EFFECT SCROLL DOWN
  202.  
  203. IF controlloop 3 DO JUMPMARK 2
  204.  
  205. VARIABLE INCREASE controlloop 1
  206.  
  207. JUMPMARK 1
  208.  
  209. MARK 2                         ; Create a mark that can be jumped to
  210.  
  211. VARIABLE RELEASE controlloop   ; Clean up after us, for next time round
  212.  
  213. WAIT 1
  214.  
  215. GOXY 20 8
  216. WRITE "Or play songs, that you write yourself!"
  217. GOXY 20 9
  218. DRAW LINE 38
  219. MUSIC PROCESS "napoleon.snd"
  220.  
  221. WAIT 1
  222.  
  223. COLOR BACKGROUND 2             ; Set the background to green
  224. CLEARSCREEN
  225. GOXY 10 8
  226. WRITE "Besides this you can control a lot of things yourself.  You can"
  227. GOXY 10 10
  228. WRITE "draw your own pictures  or  devellop your own logo in DATASHOW."
  229. GOXY 10 12
  230. WRITE "For this purpose there is a menu for graphic drawing..."
  231. WAIT 6
  232.  
  233. SHOWSCREEN "show7.scr" TXT     ; Show screen saved with CAPTURE
  234. WAIT 4
  235.  
  236. SET DELAYFACTOR 5
  237. GOXY 26 12
  238. WINDOW 50 5
  239. CLEARSCREEN
  240. COLOR FOREGROUND 1
  241. GOXY 26 12
  242. COLOR ATTRIBUTE 47             ; Set to green background, white forground
  243. DRAW BOX 50 5
  244. GOXY 3 3
  245. WRITE "By selecting F4 you can draw your own drawings,"
  246. GOXY 3 4
  247. WRITE "and then display them from a script like this.."
  248. WAIT 4
  249. GOXY 1 1
  250. WINDOW 79 24
  251.  
  252. SET GRAPHICS EGA1
  253.  
  254. SHOWSCREEN "promote1.gra" GRA
  255. WAIT 4
  256.  
  257. EFFECT GLITTER
  258.  
  259. CLEARSCREEN
  260. GOXY 10 10
  261. WRITE "You can also show GRAPHICs created from other programs."
  262. GOXY 10 12
  263. WRITE "Here DataShow display a screen saved in the PCX format -"
  264. GOXY 10 14
  265. WRITE "saved from e.g. the program PaintBrush (TM)."
  266. WAIT 4
  267. SHOWSCREEN "chess.pcx" PCX
  268. WAIT 4
  269.  
  270. SET GRAPHICS EGA1
  271.  
  272. CLEARSCREEN
  273. GOXY 10 10
  274. WRITE "AND here DataShow displays a screen saved in the GIF"
  275. GOXY 10 12
  276. WRITE "format; made by CompuServe; with a wealth of files."
  277. WAIT 4
  278. SHOWSCREEN "hugo1.gif" GIF
  279. WAIT 4
  280.  
  281. SET GRAPHICS EGA1
  282.  
  283. COLOR BACKGROUND 1
  284. COLOR FOREGROUND 12
  285. CLEARSCREEN
  286.  
  287. SET DELAYFACTOR 4
  288.  
  289. GOXY 5 8
  290. WRITE "NEW in DataShow scripts:"
  291. GOXY 5 12
  292. WRITE "Now you can also stay in graphics mode"
  293. GOXY 5 16
  294. WRITE "- and most commands work as in text mode!"
  295. WAIT 3
  296.  
  297. COLOR BACKGROUND 6
  298. COLOR FOREGROUND 14
  299. CLEARSCREEN
  300. GOXY 10 5
  301. WRITE "Remember to register DataShow. You'll then recieve:"
  302. WAIT 2
  303. SET DELAYFACTOR 0
  304. COLOR FOREGROUND 11
  305. GOXY 12 9
  306. WRITE "- A Runtime version called SHOWRUN for distribution of scripts"
  307. WAIT 3
  308. GOXY 12 11
  309. WRITE "- A Manual that can be printed on a printer for overview"
  310. WAIT 3
  311. GOXY 12 13
  312. WRITE "- A Utility package for making more music files"
  313. WAIT 3
  314. GOXY 12 15
  315. WRITE "- And more music and graphics files"
  316. WAIT 3
  317. COLOR FOREGROUND 14
  318. GOXY 10 19
  319. WRITE "See the READ.ME ascii file for further information!"
  320. WAIT 4
  321.  
  322. SET GRAPHICS OFF
  323.  
  324. VARIABLE CREATE COUNTTIMES TYPE NUMBER 1
  325.  
  326. DO "scroll1.shw"               ; Call another (sub) program
  327.  
  328. COLOR FOREGROUND 15
  329.  
  330. SET SHADOW 2
  331.  
  332. GOXY 1 8
  333. WRITE "This was run number: "
  334. GOXY 25 8
  335. WRITE counttimes
  336. SPEAK counttimes
  337. WAIT 1
  338. SPEAK "T-I-M-E-S"
  339. WAIT 1
  340.  
  341. GOXY 10 11
  342. WRITE "Now this presentation starts over again, but you can stop it at"
  343. GOXY 10 13
  344. WRITE "any time you wish by pressing the escape key.  Then in DATASHOW"
  345. GOXY 10 15
  346. WRITE "you can try all the marvelous things yourself!   Just type SHOW"
  347. GOXY 10 17
  348. WRITE "at the operating system prompt, and you can try out DataShow."
  349. WAIT 1
  350.  
  351. GOXY 10 20
  352. WRITE "That's all folks..."
  353.  
  354. SPEAK "TH-A-T-S AH-L-L F-OH-L-K-S"
  355.  
  356. SET SHADOW OFF
  357.  
  358. WAIT 8
  359.  
  360. SET CURSOR ON
  361.  
  362. VARIABLE INCREASE counttimes 1
  363.  
  364. CONTINUE
  365.